home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / MailService / MailCarrier.m < prev    next >
Encoding:
Text File  |  1991-01-29  |  3.4 KB  |  112 lines
  1. /*    MailCarrier.m
  2.  
  3.     See the .h file for additional notes.
  4.     Written in January 1991 by Eric Celeste.
  5.                                                          */
  6.  
  7. #import "MailCarrier.h"
  8. #import <stdio.h>
  9. #import <stdlib.h>
  10. #import <strings.h>
  11. #import <mach.h>
  12. #import <mach_interface.h>
  13. #import <appkit/Application.h>
  14. #import <appkit/Control.h>
  15. #import <appkit/Listener.h>
  16. #import <appkit/Pasteboard.h>
  17.  
  18. @implementation MailCarrier
  19.  
  20. /*    Note that init gets called too early in the process of the
  21.     application's launch to let us set up the listener right here.
  22.     Thus, we make ourself a delegate of the application here, and
  23.     then take care of the listener later, once the application
  24.     is done launching.
  25.                                                                     */
  26. - init
  27. {
  28.     [super init];
  29.     
  30.     [NXApp setDelegate:self];
  31.     
  32.     return self;
  33. }
  34.  
  35. /*    Now it is late enough for the listener to be ready to deal with
  36.     our demands. Here we make sure the listener knows to send us
  37.     all the messages meant for services. While we are here, we also
  38.     make sure that the recipient field is set up to point back to 
  39.     the user (since I assume this service will often be used to
  40.     archive stuff into the users own mail).
  41.                                                                     */
  42. - appDidInit:sender
  43. {
  44.     [[NXApp appListener] setServicesDelegate:self];
  45.     [recipient setStringValue:NXUserName()];
  46.     
  47.     return self;
  48. }
  49.  
  50. /*    This is the heart of my service. It gets quite messy, but it
  51.     seems that most of this mess is really needed. In particular,
  52.     it is vital that "types" gets called before "readType:data:length:"
  53.     or else the pasteboard will never do the right thing.
  54.                                                                     */
  55. - carryMail:myPasteboard userData:(const char *)userData error:(char **)message
  56. {
  57.     const NXAtom *myTypes;        /* absorbs the result of types message */
  58.     char *data;                    /* data returned by the pasteboard */
  59.     int   length;                /* length of data returned by the pasteboard */
  60.     char *text;                    /* holds copy of data from the pasteboard */
  61.     const char *name;            /* holds a pointer to the user's name */
  62.     FILE *stream;                /* our connection to the outside world */
  63.     char *command;                /* the command string we send outside */
  64.     
  65.     myTypes = [myPasteboard types];
  66.     
  67.     if ([myPasteboard readType:NXAsciiPboardType data:&data length:&length]) {
  68.     
  69.         /* this bit of work ensures there is a null at the text's end */
  70.         text = malloc(length+1);
  71.         strncpy(text, data, length);
  72.         text[length]='\0';
  73.         
  74.         /* let the user know what has been sent */
  75.         [content setStringValue:(const char *)text];
  76.         
  77.         /* make room for and create command using the name at the outlet */
  78.         command = malloc(20 + strlen(name = [recipient stringValue]));
  79.         strcpy(command,"/usr/lib/sendmail ");
  80.         strcat(command,name);
  81.         
  82.         /* here is where we send the command out to unix */
  83.         stream = popen((const char *)command,"w");
  84.         if (stream) {
  85.             /* and we put the message into the command's standard input */
  86.             fputs((const char *)text, stream);
  87.             pclose(stream);
  88.             /* this is a small signal to the user that all went well */
  89.             [notes setIntValue:++numberOfMessages];
  90.         } else {
  91.             /* and this signals that all went not-so-well */
  92.             [notes setStringValue:"Failed to allocate the stream!"];
  93.         }
  94.                 
  95.         /* don't forget to let go of memory */
  96.         free(text);
  97.         /* use vm_deallocate since readType above used Mach to allocate  */
  98.         vm_deallocate(task_self(), (vm_address_t)data, (vm_size_t)length);
  99.         
  100.     } else {
  101.     
  102.         /* making sure the user is not misled about our failure */
  103.         [content setStringValue:""];
  104.         [notes setStringValue:"Failed to read the pasteboard!"];
  105.         
  106.     }
  107.     
  108.     return self;
  109. }
  110.  
  111. @end
  112.